home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
doslbs.zip
/
DOSLIB00.CLA
< prev
next >
Wrap
Text File
|
1993-12-14
|
2KB
|
58 lines
Member('DOSLIB')
OMIT('╝')
╔════════════════════════════════════════════════════════════════════════════╗
║ Change_Directory - !Generated Procedure ║
╚════════════════════════════════════════════════════════════════════════════╝
System_Startup PROCEDURE
Code
!
!--------------- Specify Smooth or Full Character Mouse Movement
!
If Upper(Command('CLASMOOTH=ON',0)) Then
.
!
!--------------- Specify usage of Graphical Checkboxes, Radio Button etc
!
If Upper(Command('CLAFONTS=ON',0)) Then
LoadSymbols()
.
!
!--------------- Specify the character to Remap for thin Borders
!
If Upper(Command('CLABORDERS=',0)) Then
LoadBorder()
.
!
!--------------- Specify the Charafters for Radio Buttons, Etc
!
If Upper(Command('CLASYMBOLS=',0)) Then
.
!
!--------------- Specify Graphics Mode to Use
!
If Upper(Command('CLAGRAPH=',0)) Then
If Upper(Command('CLAGRAPH=ALLTEXT',0)) then
SetGraphic(90)
ElsIf Upper(Command('CLAGRAPH=EGA',0)) then
SetGraphic(121)
ElsIf Upper(Command('CLAGRAPH=VGA',0)) then
SetGraphic(89)
ElsIf Upper(Command('CLAGRAPH=SVGA256',0)) then
SetGraphic(87)
Else
SetGraphic(90)
. .
!
!--------------- Specifies if the Mouse should be sent a Reset
!
If Upper(Command('CLAMRESET=ON',0)) Then
.
RETURN